home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / CMDGeneral / DESOTO14.1.SDA / DS.INSTALL 1.5 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  114 lines
  1. 10 PRINT"[147]"CHR$(14)"DE[211]OTO CONFIGURE V1.5":IFS1THEN45
  2. 15 SR$="DS.CONFIG.SMR"
  3. 20 DV=PEEK(186)
  4. 25 OPEN15,DV,15:OPEN5,DV,5,SR$+",S,R"
  5. 30 GOSUB505:IFEN=62THENCLOSE5:GOTO545
  6. 35 INPUT#5,SP,DD(4),DD(8),DD(9),DD(10),ID$,FO,RE,JD,K:GOSUB505:CLOSE5
  7. 40 FD$=STR$(SP)+":":GOSUB455
  8. 45 S1=1:PRINT"1.  [196]IRECTORY MODES"
  9. 50 PRINT"2.  [211]YSTEM INFO
  10. 55 [153]"3.  VALXIT
  11. 60 GETA$:IFA$=""THEN60
  12. 65 ONVAL(A$)GOTO185,345,425
  13. 70 GOTO60
  14. 75 GOSUB455:PRINT"[147][196]IRECTORY MODES..."
  15. 80 PRINT"1.  1541/71"
  16. 85 PRINT"2.  1581"
  17. 90 PRINT"3.  [195][205][196] [200][196]"
  18. 95 PRINT"4.  [195][205][196] [210][204]"
  19. 100 PRINT"5.  [197]XIT"
  20. 105 GETA$:IFA$=""THEN105
  21. 110 ONVAL(A$)GOTO120,155,165,165,185
  22. 115 GOTO105
  23. 120 AM=2:D=4:PRINT"[147]1541/71"
  24. 125 PRINT"AVAILABLE... ";:FORT=1TOAM:PRINTTAB(15)T". "MID$(M$(T),2):NEXT
  25. 130 GETA$:IFA$=""THEN130
  26. 135 A=VAL(A$)
  27. 140 IFA<1ORA>AMTHEN130
  28. 145 A=VAL(LEFT$(M$(A),1)):IFA=6THENA=10
  29. 150 DD(D)=A:GOTO75
  30. 155 AM=4:D=8:PRINT"[147]1581     "
  31. 160 GOTO125
  32. 165 AM=6:D=9:PRINT"[147][195][205][196] [200][196]   "
  33. 170 IFVAL(A$)=4THEND=10:PRINT"[147][195][205][196] [210][204]   "
  34. 175 GOTO125
  35. 180 :
  36. 185 D=4:GOSUB470:PRINT"[147]1541/71";:PRINTTAB(15)SL$(4)
  37. 190 D=8:GOSUB470:PRINT"1581   ";:PRINTTAB(15)SL$(8)
  38. 195 D=9:GOSUB470:PRINT"[195][205][196] [200][196] ";:PRINTTAB(15)SL$(9)
  39. 200 D=10:GOSUB470:PRINT"[195][205][196] [210][204] ";:PRINTTAB(15)SL$(10)
  40. 205 PRINT"SAVE INFO? Y/N"
  41. 210 GETA$:IFA$=""THEN210
  42. 215 IFA$="Y"THEN10
  43. 220 GOTO75
  44. 225 PRINT"[147][211]YSTEM INFO..."
  45. 230 PRINT"SYSTEM FILES ON ";
  46. 235 PRINTTAB(20)"1.  1541/71"
  47. 240 PRINTTAB(20)"2.  1581"
  48. 245 PRINTTAB(20)"3.  [195][205][196] [200][196]"
  49. 250 PRINTTAB(20)"4.  [195][205][196] [210][204]"
  50. 255 GETA$:IFA$=""THEN255
  51. 260 A=VAL(A$):ONAGOTO270,275,280,280
  52. 265 GOTO255
  53. 270 FO=4:GOTO285
  54. 275 FO=8:GOTO285
  55. 280 FO=9:IFA=4THENFO=10
  56. 285 IFFO>=9THEN300
  57. 290 SP=0
  58. 295 GOTO315
  59. 300 INPUT"[211]YSTEM INFO PARTITION";FD$
  60. 305 A=VAL(FD$):IFA<1ORA>256THENPRINT"[145][145][145][145]":GOTO300
  61. 310 SP=A:U$="[145][145][145][145]"
  62. 315 INPUT"[194]OOT FILE I.D. CHARACTER";I$
  63. 320 IFI$=" "ORI$="*"ORI$="?"THENPRINTU$:GOTO315
  64. 325 POKE198,0:IFI$=<>""THENID$=LEFT$(I$,1)
  65. 330 INPUT"[210][197][213] [194]ANK (0-7 OR *=NONE)";RE$:RE=ABS(VAL(RE$))+1:IFRE$="*"THENRE=0
  66. 335 POKE198,0
  67. 340 INPUT"[202]IFFY [196]OS (1=YES 0=NO)";JD$:JD=ABS(VAL(JD$)):IFJD>1THENPRINTU$:GOTO335
  68. 341 POKE198,0
  69. 342 INPUT"[195]ONTROL (0=MOUSE 1=KEYS 2=BOTH)";K1$
  70. 343 K=ABS(VAL(K1$)):IFK>2THENPRINTU$:GOTO341
  71. 345 PRINT"[147][211]YSTEM INFO..."
  72. 350 IFFO=4THENSL$="1541/71"
  73. 355 IFFO=8THENSL$="1581"
  74. 360 IFFO=9THENSL$="[195][205][196] [200][196]"
  75. 365 IFFO=10THENSL$="[195][205][196] [210][204]"
  76. 370 PRINT"[203]EPT IN "SL$;
  77. 375 IFFO>=9THENPRINT" PARTITION "SP
  78. 380 PRINT:PRINT"[194]OOT FILE I.D. "ID$
  79. 385 RE$=" BANK "+STR$(RE-1):IFRE=0THENRE$=" NO"
  80. 390 JD$=" YES":IFJD=0THENJD$=" NO"
  81. 395 PRINT"[213]SE [210][197][213]: "RE$:G$=STR$(RE)
  82. 400 PRINT"[202]IFFY [196]OS: "JD$:H$=STR$(JD)
  83. 401 K1$(0)="MOUSE":K1$(1)="KEYS":K1$(2)="MOUSE/KEYS"
  84. 402 PRINT"[195]ONTROL: "K1$(K)
  85. 405 PRINT"[211]AVE THIS INFO?"
  86. 410 GETA$:IFA$=""THEN410
  87. 415 IFA$="Y"THEN10
  88. 420 GOTO225
  89. 425 PRINT"[147][211]AVING FILE...":GOSUB490
  90. 430 SR$="DS.CONFIG.SMR"
  91. 435 PRINT#15,"S0:"+SR$
  92. 440 OPEN5,DV,5,SR$+",S,W":GOSUB505
  93. 445 PRINT#5,A$,B$,C$,D$,I$,E$,F$,G$,H$,K$:GOSUB505:CLOSE5:GOSUB505
  94. 450 CLOSE15:PRINT"[147]":END
  95. 455 M$(1)="3[194]OOT FILES":M$(2)="4[208]ROGRAM FILES":M$(3)="881 [208]ARTITIONS"
  96. 460 M$(4)="6[198]ULL [196]IRECTORIES"
  97. 465 M$(5)="7[200][196] [196]IRECTORIES":M$(6)="9[200][196] [208]ARTITIONS":RETURN
  98. 470 FORT=1TO6
  99. 475 IFVAL(LEFT$(M$(T),1))=6ANDDD(D)=10THENSL$(D)=MID$(M$(T),2):T=6:GOTO485
  100. 480 IFVAL(LEFT$(M$(T),1))=DD(D)THENSL$(D)=MID$(M$(T),2):T=6
  101. 485 NEXT:RETURN
  102. 490 R$=CHR$(13):A$=STR$(SP)+R$:B$=STR$(DD(4))+R$:C$=STR$(DD(8))+R$
  103. 495 D$=STR$(DD(9))+R$:E$=ID$+R$:F$=STR$(FO)+R$:G$=G$+R$:H$=H$+R$:K$=STR$(K)+R$
  104. 500 I$=STR$(DD(10))+R$:RETURN
  105. 505 INPUT#15,EN,EN$,ET,ES
  106. 510 IFEN=62OREN=63THENRETURN
  107. 515 IFEXTHENIFEN=31THENRETURN
  108. 520 IFEN<20THENRETURN
  109. 525 PRINT"[147]ERROR "EN,EM$
  110. 530 PRINT"TRACK "ET
  111. 535 PRINT"SECTOR"ES
  112. 540 CLOSE5:CLOSE15:STOP
  113. 545 PRINT"[147][195]ONFIGURATION FILE MISSING.":STOP
  114.